home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / ab20 / utilitys / editors / emacs185.lha / emacs / lisp / text-mode.elc < prev    next >
Encoding:
Text File  |  1992-02-21  |  3.0 KB  |  45 lines
  1.  
  2. (defvar text-mode-syntax-table nil "\
  3. Syntax table used while in text mode.")
  4.  
  5. (defvar text-mode-abbrev-table nil "\
  6. Abbrev table used while in text mode.")
  7.  
  8. (define-abbrev-table (quote text-mode-abbrev-table) nil)
  9.  
  10. (if text-mode-syntax-table nil (setq text-mode-syntax-table (make-syntax-table)) (modify-syntax-entry 34 ".   " text-mode-syntax-table) (modify-syntax-entry 92 ".   " text-mode-syntax-table) (modify-syntax-entry 39 "w   " text-mode-syntax-table))
  11.  
  12. (defvar text-mode-map nil "\
  13. ")
  14.  
  15. (if text-mode-map nil (setq text-mode-map (make-sparse-keymap)) (define-key text-mode-map "    " (quote tab-to-tab-stop)) (define-key text-mode-map "s" (quote center-line)) (define-key text-mode-map "S" (quote center-paragraph)))
  16.  
  17. (defun text-mode nil "\
  18. Major mode for editing text intended for humans to read.  Special commands:\\{text-mode-map}
  19. Turning on text-mode calls the value of the variable text-mode-hook,
  20. if that value is non-nil." (interactive) (byte-code "ƈǠˆÈ!ˆÉ‰ˆÊ‰ˆ ‰ˆË
  21. !ˆÌÍ!‡" [text-mode-map mode-name major-mode local-abbrev-table text-mode-abbrev-table text-mode-syntax-table nil kill-all-local-variables use-local-map "Text" text-mode set-syntax-table run-hooks text-mode-hook] 5))
  22.  
  23. (defvar indented-text-mode-map nil)
  24.  
  25. (if indented-text-mode-map nil (setq indented-text-mode-map (make-sparse-keymap)) (define-key indented-text-mode-map "    " (quote indent-relative)) (define-key indented-text-mode-map "s" (quote center-line)) (define-key indented-text-mode-map "S" (quote center-paragraph)))
  26.  
  27. (defun indented-text-mode nil "\
  28. Major mode for editing indented text intended for humans to read.\\{indented-text-mode-map}
  29. Turning on indented-text-mode calls the value of the variable text-mode-hook,
  30. if that value is non-nil." (interactive) (byte-code "ÁˆÉ ˆÊ!ˆËÃÁ\"ˆ ‰ˆÌ !ˆÍÅ!ˆÎ‰ˆÊ!ˆÏ‰ˆÐ‰ˆÑÒ!‡" [text-mode-map nil local-abbrev-table text-mode-abbrev-table text-mode-syntax-table indent-line-function indented-text-mode-map mode-name major-mode kill-all-local-variables use-local-map define-abbrev-table set-syntax-table make-local-variable indent-relative-maybe "Indented Text" indented-text-mode run-hooks text-mode-hook] 8))
  31.  
  32. (defun center-paragraph nil "\
  33. Center each line in the paragraph at or after point.
  34. See center-line for more info." (interactive) (byte-code "ÁˆŠÂ ˆn†
  35. ÃÄ!ˆ`Å ˆÆ`\"))‡" [end nil forward-paragraph newline 1 backward-paragraph center-region] 6))
  36.  
  37. (defun center-region (from to) "\
  38. Center each line starting in the region.
  39. See center-line for more info." (interactive "r") (byte-code "È    V…    
  40. ‰)ˆŠŒÄ    \"ˆbˆm?…*Å ˆÆÇ!ˆ‚))‡" [from to tem nil narrow-to-region center-line forward-line 1] 5))
  41.  
  42. (defun center-line nil "\
  43. Center the line point is on, within the width specified by `fill-column'.
  44. This means adjusting the indentation to match
  45. the distance between the end of the text and `fill-column'." (interactive) (byte-code "ȊÃÄ ˆÅ ˆÆ ˆÅ ˆi‰ˆÄ ˆ    ÇÈ
  46.     #É\"\\j))‡" [line-length left-margin fill-column nil beginning-of-line delete-horizontal-space end-of-line / - 2] 11))
  47.